home *** CD-ROM | disk | FTP | other *** search
/ Revolution - Das Atari CD Magazin 1997 / Revolution - Das Atari CD Magazin 1.iso / software / anwendng / utility / gemlabel / module.prj / stc.gfa / prtr.gfa (.txt) < prev    next >
GFA-BASIC Atari  |  1996-07-21  |  1KB  |  42 lines
  1. '
  2. ' Startup-Code für ein GEMLABEL-Print-Modul in GFA-Basic 2.0
  3. '
  4. info$="GLBLMODLPRTR Modulbeschreibung ¯"
  5. cmd$=""
  6. cmdl#=PEEK(BASEPAGE+128)
  7. IF cmdl#<>0 THEN
  8.   FOR i%=1 TO cmdl#
  9.     cmd$=cmd$+CHR$(PEEK(BASEPAGE+128+i%))
  10.   NEXT i%
  11.   IF LEFT$(cmd$,4)="GLMP" THEN
  12.     @modul
  13.   ELSE
  14.     IF LEFT$(cmd$,3)="GLM" THEN
  15.       ALERT 1," | Dies ist ein  | GEMLABEL-Print-Modul ! ",1,"Abbruch",but#
  16.     ELSE
  17.       @glm_mod
  18.     ENDIF
  19.   ENDIF
  20. ELSE
  21.   @glm_mod
  22. ENDIF
  23. END
  24. PROCEDURE glm_mod
  25.   PRINT CHR$(13);CHR$(10);
  26.   PRINT " Modulname, Version, Datum                 "
  27.   PRINT " Written by Ihr Name                       "
  28.   PRINT
  29.   PRINT " Dies ist ein Modul für GEMLABEL und       "
  30.   PRINT " Copyright oder Hinweis auf FREEWARE/SHAREW"
  31.   PRINT " Es kann nur von GEMLABEL gestartet werden "
  32.   PRINT
  33.   PRINT " GEMLABEL written 1995 by Volker Janzen    "
  34.   PRINT
  35.   PRINT " -Taste-                                   "
  36.   REPEAT
  37.   UNTIL LEN(INKEY$)
  38. RETURN
  39. PROCEDURE modul
  40.   ' Dies ist die Procedure in der ihr Modul steht
  41. RETURN
  42.